﻿Public Class xtf_ABMcotizacion
    Public obj_Cotizacion As cls_cotizacion_ = Nothing
    Private col_ControlesValidar As List(Of Control)

    Public Sub New()
        InitializeComponent()
        Me.Text = "Cotizacion - Nuevo"
        obj_Cotizacion = New cls_cotizacion_
        lbl_Fecha.Text = Now.Date
        Dim monedalocal As New cls_moneda_
        monedalocal.MonedaLocal()
        lbl_Descripcion.Text = "Cotizacion basada en Moneda local: " & monedalocal.ToString
        AgregarValidacionesGlobal(Me, Me.lac_general, col_ControlesValidar)
    End Sub

    Public Sub Modificar(ByRef Cotizacion As cls_cotizacion_)
        If IsNothing(obj_Cotizacion) Then
            obj_Cotizacion = New cls_Cotizacion_
        End If
        obj_Cotizacion = Cotizacion

        Me.Text = "Cotizacion - " & obj_Cotizacion.ToString
        lbl_Fecha.Text = obj_Cotizacion.fecha.ToShortDateString
        txt_Valor.Text = obj_Cotizacion.valor
        'lbl_moneda.Text = obj_Cotizacion.articulo.

    End Sub

    Public Function ComprobarDatos() As Boolean
        If Not ControlarValidacionesGlobal(col_ControlesValidar) Then
            ErrManagerShow("000004", Me)
            Return False
        End If
        Return True
    End Function

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then

            obj_Cotizacion.fecha = CDate(lbl_Fecha.Text)
            obj_Cotizacion.valor = txt_Valor.Text

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub

End Class